#! /usr/bin/perl -w

use strict;

use CGI::FOGE2::Test;
use HTML::TokeParser;
use CGI::FOGE2::Test;

my $htp = HTML::TokeParser->new(\*STDIN);
my $tst = CGI::FOGE2::Test->new('TableTest');

# print $out . "";

# print $htp;

$htp->get_tag('table');
my $ary = $tst->html_to_array($htp);

# $ary =  [[1,4,7],   [2,5,8]  ];

print "[";
foreach my $line (@$ary) {
  print "\t(";
  foreach my $elem (@$line) {
    printf "%s; ", $elem;
  }
  print ")\n";
}
print "]\n";

